********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program Upah_Karyawan;
Uses CRT;
Var
NK : String;
JLJK : Real;
UPJ : Real;
Upah : Real;
Gol : Char;
Begin
Clrscr;
Writeln ('Upah Karyawan');
Write ('NK:'); Readln(NK);
Write ('JLJK:'); Readln(JLJK);
Write ('Gol:'); Readln(Gol);

IF (Gol='A') then
   UPJ:=4000
   ELSE
IF (Gol='B') THEN
   UPJ:=5000
   ELSE
IF (Gol='C') THEN
UPJ:=6000
ELSE
IF (Gol='D') THEN
   UPJ:=7500;

IF JLJK<=48 THEN
Upah:= (JLJK * UPJ);
Upah:= (48 * UPJ + (JLJK-48) * 3000);
Writeln ('NK:',NK);
Writeln ('Gol:',Gol);
Writeln ('Upah:',Upah:6:2);
Readln;
End.